home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / CADAR / Symbols / Chords / select-inverted-chords-rnd < prev   
Text File  |  1998-10-22  |  660b  |  19 lines
  1. select-inverted-chords-rnd  list-of-chords n 
  2. &key (scale 'chromatic) (seed nil)
  3. n = number of repeats
  4.  
  5. takes a list of chords and finds all close-position
  6. inversions
  7. then picks randomly among inversions of the first
  8. chord and finally finds closest moves to the
  9. inversions of rest of the chords
  10.  
  11. (select-inverted-chords-rnd '(ace bdf beg) 3 :seed 0.2)
  12. ->(emo fnp gnq ace bdf beg cem dfn egn)
  13.  
  14. (select-inverted-chords-rnd '(ace bdf beg) 5 :seed 0.3)
  15. ->(cem dfn egn emo fnp gnq emo fnp gnq emo fnp gnq emo fnp gnq)
  16.  
  17. (select-inverted-chords-rnd '(ace bdf beg) 5 :scale 'major :seed 0.3)
  18. ->(ceh dfi beg -dac -cbd -bbe -dac -cbd -bbe -dac -cbd -bbe -dac -cbd -bbe)
  19.